home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / cursor.module < prev    next >
Text File  |  1996-09-26  |  536b  |  60 lines
  1. MODULE Cursor;
  2.  
  3. KEY "control up"
  4.   ScrollUp
  5. END;
  6.  
  7. KEY "alt up"
  8.   Goto([_xPos,1])
  9. END;
  10.  
  11. KEY "shift up"
  12.   PageUp(90)
  13. END;
  14.  
  15. KEY "up"
  16.   CursorUp(0)
  17. END;
  18.  
  19. KEY "control down"
  20.   ScrollDown
  21. END;
  22.  
  23. KEY "alt down"
  24.   Goto([_xPos,_length])
  25. END;
  26.  
  27. KEY "shift down"
  28.   PageDown(90)
  29. END;
  30.  
  31. KEY "down"
  32.   CursorDown(0)
  33. END;
  34.  
  35. KEY "alt right"
  36.   NextWord
  37. END;
  38.  
  39. KEY "shift right"
  40.   Goto([%EOL,%EOL])
  41. END;
  42.  
  43. KEY "right"
  44.   CursorRight(0)
  45. END;
  46.  
  47. KEY "alt left"
  48.   LastWord
  49. END;
  50.  
  51. KEY "shift left"
  52.   Goto([%SOL,%SOL])
  53. END;
  54.  
  55. KEY "left"
  56.   CursorLeft(0)
  57. END;
  58.  
  59. END Cursor.
  60.